From: Jason Rumney <jasonr@gnu.org>
Date: Mon, 6 Aug 2007 11:03:18 +0000 (+0000)
Subject: (menu-bar-vc-filter): Use vc-call-backend.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17502
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3fd48fbb859ce1d9a598642cb7cdd7cd6eb78240;p=emacs.git

(menu-bar-vc-filter): Use vc-call-backend.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 48f4613287b..8bc0bd86a41 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1170,7 +1170,7 @@ mail status in mode line"))
 
 (defun menu-bar-vc-filter (orig-binding)
   (let ((ext-binding
-   (if vc-mode (vc-call 'extra-menu buffer-file-name))))
+   (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu))))
     ;; Give the VC backend a chance to add menu entries
     ;; specific for that backend.
     (if (null ext-binding)